Create or Replace Function
  CustSales( CustNo Decimal(4, 0), Date Decimal(8, 0) )
  Returns Table
  (
    itemNo Char(10),
    desc   Char(25),
    Qty    Decimal(9, 0),
    Unit   Char(3),
    Weight Decimal(11, 2),
    Cost   Decimal(9, 2)
  )
  external name 'SKLEMENT/UDTFDEMO1(CUSTSALES)'
  language rpgle
  parameter style db2sql
  no sql
  not deterministic
  disallow parallel; 